home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / LEDIT108.ZIP / LEDLP / LEDLP_3A.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-04  |  1.4 KB  |  68 lines
  1. unit Ledlp_3a;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Ledlp, Ledlp_3b, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     OpenDialog1: TOpenDialog;
  12.     Panel1: TPanel;
  13.     Button4: TButton;
  14.     Button3: TButton;
  15.     Button2: TButton;
  16.     Panel2: TPanel;
  17.     LEdit1: TLEdit;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Button1: TButton;
  21.     Button5: TButton;
  22.     procedure Button2Click(Sender: TObject);
  23.     procedure Button3Click(Sender: TObject);
  24.     procedure Button4Click(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.     MemoryHandle: THandle;
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TForm1.Button2Click(Sender: TObject);
  41. begin
  42.   { Load in the file }
  43.   if OpenDialog1.Execute then
  44.     LEdit1.Filename := OpenDialog1.Filename;
  45. end;
  46.  
  47. procedure TForm1.Button3Click(Sender: TObject);
  48. begin
  49.   { Copy the selected text to memory }
  50.   MemoryHandle := LEdit1.SelTextHandle;
  51. end;
  52.  
  53. procedure TForm1.Button4Click(Sender: TObject);
  54. begin
  55.   { Put the selected text into another LEdit
  56.     and then free the memory handle }
  57.   Form2.Show;
  58.   Form2.LEdit1.TextHandle := MemoryHandle;
  59.   LEdit1.BurnHandle(MemoryHandle);
  60. end;
  61.  
  62. procedure TForm1.Button1Click(Sender: TObject);
  63. begin
  64.   MemoryHandle := LEdit1.TextHandle;
  65. end;
  66.  
  67. end.
  68.